home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / fig8.1 < prev    next >
Text File  |  2007-02-28  |  823b  |  32 lines
  1. 0010 DIM TREETYPE$ OF 6, TREESIZE$(3) OF 6
  2. 0020 FOR K:=1 TO 3 DO READ TREESIZE$(K)
  3. 0030 FOR SIDE:=1 TO 4 DO
  4. 0040 PRINT "DIG A CORNER POST HOLE."
  5. 0050 READ SIDELENGTH
  6. 0060 REPEAT 
  7. 0070 TREE:=RND(0,1)
  8. 0080 IF TREE THEN TREECHOP(TREESIZE$(RND(1,3)))
  9. 0090 SOFT:=RND(0,1)
  10. 0100 IF SOFT THEN
  11. 0110 PRINT "DIG A HALF METRE HOLE."
  12. 0120 ELSE 
  13. 0130 PRINT "DIG A THIRD METRE HOLE."
  14. 0140 ENDIF 
  15. 0150 SIDELENGTH:=SIDELENGTH-15
  16. 0160 UNTIL SIDELENGTH<15
  17. 0170 ENDFOR SIDE
  18. 0180 PROC TREECHOP(TREETYPE$) 
  19. 0190 CASE TREETYPE$ OF
  20. 0200 WHEN "SMALL"
  21. 0210 PRINT "PULL OUT TREE"
  22. 0220 WHEN "MEDIUM"
  23. 0230 PRINT "CUT ABOVE BASE. PULL OUT ROOT."
  24. 0240 WHEN "LARGE"
  25. 0250 PRINT "CUT DOWN TREE. DIG OUT ROOT."
  26. 0260 OTHERWISE 
  27. 0270 PRINT "TREE TYPE NOT KNOWN."
  28. 0280 ENDCASE 
  29. 0290 ENDPROC TREECHOP
  30. 0300 DATA "SMALL","MEDIUM","LARGE"
  31. 0310 DATA 100,120,140,110
  32.